j <- c(0.94,0.408,
       0.01,0.023,
       0.723,0.382,
       0.035,0.02)
y <- c(0.051,0.612,
       0.03,0.02,
       0.789,0.424,
       0.014,0.015)
t.test(j,y,paired = TRUE)
wilcox.test(j,y,paired = TRUE)
